ADA Programming Guide/ADA Programming Guide.iso/ada_tut/add.ada

Text File | 1996-01-30 | 158b | 8 lines

with Text_IO; use Text_IO;
procedure Add is
   package My_Int_IO is new Integer_IO(Integer); use My_Int_IO;
begin
   Put(2 + 2);
   New_Line;
end Add;